' x 



File Name: MAIN.S 
7/25/00 -SNV0.1 

This is the main module. When not processing anything the execution remains 
in this module at all times. 



must be in this order 



.include 
.include 
.include 
.include 
.include 



"fvt.inc" 

"keydef.inc" 

"data.inc" 

"equ.inc" 

"macro.inc" 



.global KEY_NUMBER, KEY_NUMBER_BUFFER 

.extern irqO 
.extern irql 
.extern irq2 
.extern irq3 
.extern irq4 
.extern irq5 



.extern 
.extern 
.extern 
.extern 
.extern 
.extern 
.extern 
.extern 
.extern 
.extern 



checkjcey 

ScanKeyPad 

WaitForKeyPress 

ServiceCode 

wait_key_off 

set_tl6_timer 

disable_tl6_timer 

DialOut 

delay_l 00ms 

SWInitialize 



**********************: 



interrupt vectors 



**************** 
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irqO_vec: 

.word irqO 
irql_vec: 

.word irql 
irq2_vec: 

.word irq2 
irq3_vec: 

.word irq3 
irq4_vec: 

.word irq4 
irq5_vec: 

.word irq5 



Cj RESET - main entry 



Id SPH, #HIGH(stack_ptr) 

h Id SPL, #LOW (stack_ptr) 

5 

Initialize port modes. 
= ; t pOlm and p2m defaults are used. They are fine. 



Id P3M,#00h ;p32,p33,p31,p30 = inputs 

Id P2M, #0ffh ; p2 = inputs (for keyscan rows) 

Id P01M, #00000 1 00b ; p0 = outputs (for leds) and keyscan 
columns 



srp EXTENDGROUPD 

Id ctrO, #T8_RESET_TOUT 

Id ctrl,#03h ;(#TC8_16_OUT)|(#INIT_T8_OUT_HIGH)| 
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(#INIT_T16_0UT_HIGH) ; port 3.6 is timer output 

Id ctr2, #T16_RESET_T0UT 

srp EXTEND_GROUP_F 
Id wdtmr,#00 

Id 0, #0FEh ;PCON register is 0 

. ********* strictly for OTP 'E72/E73 ************** 
Id Oeh, #000001 00b 



BRRRR... Start me up.. 



;** check if warm or cold start ** 

tbitnz smr, #BIT7, warm ;Check for warm start. 

;** COLD START ** 

Id smr, #00 100000b 



;** Clear Internal RAM if COLD START and RAM CURROPTED 
srp REGGROUP 

cp CHECKl,#0AAh ;Check if RAM should be 

cleared after cold start 

jr ne, ClearRam 

cp CHECK2, #0AAh 

jr ne, ClearRam 

cp CHECK3, #0AAh 

jr eq, warm 



ClearRam: 
srp 0 

Id r5, SPL 



ClearLoop: 

clr @r5 
dec r5 

cp r5,#05h 

jr nz,ClearLoop 

Id CHECK 1, #0AAh ;load fields with values to be 

checked on cold boot 

Id CHECK2, #0AAh 
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Id CHECK3, #OAAh 



; Warm start 

; check key depressed 

; if key is not depressed then return with 

; KEY_NUMBER = Oxff; 

warm: 

srp REGGROUP 

Id MODE,#0 

Id P_MODE,#0 

Id p2,#0fh initialize p2 

Id pl,#47h;Initializepl 

or p3,#BIT6 ;CS=high 

Id P 0,#BIT3 ;RS0=0 



RedLedOff ;Make sure the record led is off 

Id rl,p3 
; or p3,#BITl 
) or p3,#BIT2 

tbitz p3,#BITl,DiaIOutBaby ;Check Battery Voltage 

tbitz p3,#BiT2,DialOufBaby ;Check Battery Voltage 



call WaitForKeyPress ;Wait for key press 

jr nc, warm ; None, do other stuff- 
Got ANewVali dKey: 

call ServiceCode ;serice the key accordingly. 

call WaitForKeyPress ;wait for another key. 

jr c, GotANewValidKey 

call disable_tl6_timer ;disable timers. 

CheckforBattery Voltage: 

tbitz p3,#BITl,DialOutBaby 
tbitz p3,#BIT2,DialOutBaby 

jr warm ; If both batteries OK. 

;continue on. 

DialOutBaby: 
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;Check battery voltage if voltage is less 

;than 

normal. Dial out. 
Id 41h, #02h 
Id 42h,#08h 
Id 43h,#02h 
Id 44h,#09h 
Id 45h,#0ffh 
Id 46h, #09h 
Id 47h,#03h 
Id 48h,#06h 
Id 49h,#05h 
Id 4ah, #03h 
Id 4bh,#05h 
Id 4ch,#0ffh 

call delay_ 100ms 

call DialOut 

jr warm ; go back to 

work.... 

.byte "Copyright (c)2000-2001 Chamberlain Group. Developed by Yamtech Inc, 847 
963 2829" 
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SERVICE KEY 

File Name: SRVKEY.S 

8/14/00- V 1.0 SN 

This routine services the keys on the charger unit. 
The main functions provided are 

1 . learning the phone number. 

2. Enable recording of ogm. 

3. Enable playback of ogm. 



.include "fvt.inc" 
.include "keydef.inc" 
.include "data.inc" 
.include "equ.inc" 
.include "macro.inc" 

.global ServiceCode 
.global DeviceLightsOff 
.global DevLightKey 



.extern FlashGreenLed 

.extern WaitForKeyReleaseFlashRed 

.extern wait_key_off, port_delay 

.extern WaitForKeyRelease,WaitForKeyPressUserDelay, WaitForKeyPress 
.extern WaitForKeyReleaseAndStartThreeSecTimer 
.extern Delay70ms, set_tl6_timer, disable_tl6_timer 



Service key code 

Key Number in 'KEY^NUMBER' 



ServiceCode: 

cp KEY_NUMBER, #MAX_VALID_KEY 

jr ugt, ServiceExit ;check if key pressed is valid 



cp KEY_NUMBER, #KEY_RECORD 

jp eq, ProcessRecordKey ;Record OGM 

cp KEY_NUMBER,#KEY_PROGRAM 



A-6 



Srvkey 



jp eq,LearnAPhoneNumber ;ProcessProgramKey 

;Program phone number 



; call WaitForKeyReleaseAndStartThreeSecTimer ;if device key pressed for 

; jp nc, ProcessDeviceKey ;three seconds learn a code 

; Id KEY_FOR_CODE_FLAG, KEY_NUMBER 
; jp LearnAPhoneNumber 

ServiceExit: 
ret 

.*********************** ************************************* 
; LearnAPhoneNumber 



Function: 

, ; Learns the Phone number. Max of 10 digits. The first 

digit cannot be a 0. 

. ; Inputs: 

; DEVICEFLAG 
Returns: 

CF = 0 - OK Set PhoneNumberOK Flag 

CF = 1 - Error Reset PhoneNumberOK Flag 

, Modifies: 

DigitPointer .equ 40h ; Store Digits 
LoopCounter .equ r8 
Multiplier .equ rll 
CodeEntered .equ rl3 

; Subords: 

; WaitForKeyPress 
; CheckFirstDigit 
; mul_8 

.********** ************************************************** 
LearnAPhoneNumber: 

or MODE, #PROGRAM_MODE 

and pl,#1011 1111b 
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Id DigitPointer,#41h 
continue: 

call wait_key_off ;Wait for release of key 

ldrr LOOP_COUNTER_H,LOOP_COUNTER_L,T30_SECONDS 

call WaitForKeyPressUserDelay ; waits 30 seconds in learn mode 
jp nc,LearnPhoneError 

CheckForDigit: 

call CheckFirstDigit ; check if first digit is valid 

jp c, LearnPhoneError ; 

Id @DigitPointer, KEYNUMBER ; first digit OK store it 

inc DigitPointer 
StoreDigits: 

call WaitForKeyPress ;loop to get more digits or 

time out 

jp nc, LearnPhoneError 

GreenLedOn 

cp KEY_NUMBER, #9 ;if number key not 

pressed exit error 

jp ugt, LearnPhoneError ;key pressed is not a digit, exi 

t 

error 

Id ©DigitPointer, KEY_NUMBER ;load the digit into storage 

inc DigitPointer increment pointer to digits 

djnz LoopCounter, StoreDigits ;decrement digit counter 

LearnPhoneOK: 

Id @DigitPointer,#Offh indicates termination of 

phone number 

RedLedOff ;exit point when things are good 

Id MODE, #0 

rcf 

or pl,#40h 

or P_MODE,#PhoneNumberOK ;Set phonenumberOK Fig 

call wait_key_off ;wait for key release 

ret 

LearnPhoneError: ;exit point when things are bad 

Id @DigitPointer,#Offh ;Indicates termination of 

phone number 
RedLedOff 
or pl,#40h 
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Id MODE, #0 

and P_MODE,#~PhoneNumberOK ;reset PhoneNumberOk Fig 

scf 

ret 



; CheckFirstDigit 



; Function: 

; Checks the 1st digit of an entered code. It must not be zero. 

; If the first digit is one the learn nine more digits or else learn 

; six more digits. 

; Returns: 

. ; CF = 0 - 1 st digit is valid for the device being learned. 

; CF=1 - 1st digit is invalid ... 

; Modifies: 

> ; LoopCounter: 

; Subords: 
; None. 

.*********************** *********^ 
CheckFirstDigit: 

Id LoopCounter,#10 ;Default 10 digits 

cp KEY_NUMBER, #KEY_0 

jr eq,FirstWrong 



cp KEY_NUMBER, #KEY_1 ;If first # !=1 then enter only 7 

digits 

jr eq,FirstOK 



Id LoopCounter,#6 

FirstOK: 
rcf 
ret 



First Wrong: 

Id LoopCounter,#0 ;Enable Playback if Zero key 
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is pressed first 
scf 

jr ProcessPlayBack 
ret 

****** ****************************** ************************ 
ProcessRecordKey: 

Enables Recording of Out Going Message 

ProcessRecordKey: 

call wait_key_off ; Wait for release of key 

ldrr LOOP_COUNTER_H,LOOP_COUNTER_L,T30_SECONDS 

second max recording 

;but 

wait for 30 seconds just in case. 

Id pl,#06h ; Turn on recording, 

call port_delay 

call WaitForKeyPressUserDelay ; waits 30 seconds in learn mode 
jp nc,RecordError 
Id pl,#07h ;Turn off recording 

RecordError: 

Id pl,#07h ;Turn off recording 

or MODE,#0h ;Recording completed. 



ProcessPlayBack: ;Program + 0 will initiate Playback 

call wait_key_off 
Id pl,#03h 
call port_delay 

ldrr LOOP_COUNTER_H,LOOP_COUNTER_L,T30_SECONDS 
second max recording 

;but 

wait for 30 seconds just in case. 

call WaitForKeyPressUserDelay ;waits 30 seconds in learn mode 
jp nc,RecordError 

Id pl,#07h ;Turn off recording 

scf ;set carry flag to exit from 
program mode. 

jr RecordError 
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.end 



All 



Keynew 



; FILENAME: keynew.src 



DESCRIPTION: 



Parses the key pad. There are 12 keys on the key pad. 

The program key allows the user to program the phone number to dial. 

The record key allows the user to record the outgoing message. 



REVISION HISTORY: 



Version: 0.1 

Date: 07/25/00, Author: 



*** Public Functions *** 



** Internal Functions ** 
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f include files ** 
.include "fvt.inc" 
.include "data.inc" 
.include "equ.inc" 
.include "keydef.inc" 
.include "macro.inc" 



;** external functions ** 

.extern set_tl 6_timer ; Sets up timer for keyscan time-out. 

.extern disable_tl6_timer 

.extern mul_8 

.extern FlashGreenLed 

.extern FlashRedLed 

;. extern InterDigitDelay 
;** public functions ** 

.global delay_500uS 

.global delay_100ms 

.global WaitForKeyReleaseAndStartThreeSecTimer 

.global WaitForKeyReleaseFlashRed 

.global WaitForKeyRelease 

.global WaitForKeyPress 

.global WaitForKeyPressUserDelay 

.global ScanKeyPad 

.global wait_key_off 

.global delay_10ms 

.global delay_ms 

.global check_key 

.global port_delay 

.********************************************************** 

; Wait for key depressed or 

; timeout if no key in 15 seconds 

; check every 32 msec. 

return with cf = 1 & key_number 

WaitForKeyPress: 

tbitnz MODE, #PROGRAM_MODE, SetActionTime ;Time 
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out for Program mode 

ldrr LOOP_COUNTER_H 5 LOOP_COUNTER_L,T8_SECONDS 

jr NotActionTime 

SetActionTime: 

ldrr LOOP_COUNTER_H,LOOP_COUNTER_L 5 T8_SECONDS 

NotActionTime: 

call wait_key_off ;if key already pressed, wait 

here 

tbitz MODE,#PROGRAM_MODE, NoRedLED 
GreenLedOn 

NoRedLED: 

WaitForKeyPressUserDelay: 
ldw 

CURR_LOOP_COUNTER_H,CURR_LOOP_COUNTER_L,LOOP_COUNTER_H,LOOP_CO 
UNTERL 

or IO_FLAGS,#TIMEOUT_FLAG ; This enables the time-out 
routine in IRIRQ.S 

call set_tl6_timer ; Give them a limited time in 

which to respond 

WaitForKeyOrTimeOut: 
call ScanKeyPad 
jr nc, NoKey_CheckForTimeOut 

Id tmpjcey, KEYJSRJMBER 
Id loop_cnt,#50 

bounce_lop: 

call ScanKeyPad 

jr nc, NoKey_CheckForTimeOut ; no key 
cp tmp_key, KEY_NUMBER 
jr nz, NoKey_CheckForTimeOut ; not matched 
djnz loop_cnt,bounce_lop 

call disable_tl6_timer ; Found a key, Stop the Time_out 

counter, 
scf 
ret 
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NoKey_CheckForTimeOut: 

tbitnz IO_FLAGS,#TIMEOUT_FLAG, WaitForKeyOrTimeOut 

call disable_tl6_timer ; Timed_out, Stop the Time_out counter. 

rcf 

ret 



;sole control key matrix 

.************************************************************ 
; Scan Key Pad 

; set key matrix ports for the SC500 series 

; col 0 = pO.O row 0 = p2.0 

; coll=p0.1 rowl=p2.1 

; col 2 = p0.2 row 2 = p2.2 
; row 3 = p2.3 

; if key is not depressed then return with 
KEY_NUMBER = Oxff; 

ScanKeyPad: 

and pO, #KeyPadMask ; All columns are low 

id KEY_NUMBER,#Offh ;default key number 

.************************************************************ 
; Get row #, scan ports p2.0 to p2.3 

******************************************************** 



clr row 

Id i,#00000001b 
row_scan_loop: 
cp row, #4 
jr ugt,exit_key_scan 
Id j,i 
and j,p2 
jr z,row_found 
inc row 
rl i 

jr nc,row_scan_loop 

8 

rows 

jr exit_key_scan 
row_found: 



;set row counter to zero 
;start bit at pin 2.0 



;compare mask to port 2 

;zero flag is set if row is found 
;increment row counter 
;try next row 

;do while c f is not set, end loop after 
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********************************************************** 
Get col #, scan ports pO.O to p0.2 



clr col ;set col counter to 0 

or pO, #1111 111 lb ; Start with ColumnO (pO.O) 

and pO, #111 111 10b ;clrp0.0 
col_scan_loop: 
cp col,#4 
jr ugt,exit_key_scan 

call port_delay ;allow port to settle 

call port_delay ;allow port to settle, maybe you donot 
need two delays but leave itfor now. 



cp 

Id 

and 

cp 

jr 

Id 



inc 



column 



p2,#0fh 
r5,p2 
r5,#0fh 
r5,#0fh 

ne, compute_key_num 
r5,p0 

r5, #KeyPadMask 
r5 

r5, #KeyPadMask 
p0,r5 
nc,exit_key_scan 
col 

col_scan_loop 



;check if a row pin gets pulled low 



;if a row pin is pulled low exit loop 



;if pins 2 thru 7 were checked exit loop 
.else increment col counter 

;begin loop again, check next 



exit_key_scan: 

and pO,#KeyPadMask ;reset the key 

output ports 

rcf ;no valid key pressed 

ret ;return Oxff in 

KEY_NUMBER 

.************************************************************ 
; Compute key number and return it 
; Formula: row * 3 + col = key number 

.************************************************************ 
compute_key_num: 
Id rll,row 
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Id rl3, #3 

call mul_8 

add rl3,col 

Id KEY_NUMBER, rl3 

and pO, #KeyPadMask ; All columns are low 

call TranslateKeyNumber 

scf 

ret ;return valid key number in 

KEY_NUMBER 

WaitForKeyRelease: 
wait_key_off: 

and pO, #KeyPadMask ; All columns are low 

offjp: 

call check_key 
jr c, off_lp 

1 ret 

\ WaitForKeyReleaseFlashRed: 

and pO, #KeyPadMask ; All columns are low 

ioffJpO: 

S call check_key 
jr c, off_lpO 
ret 



; ; Miscellaneous Delay Routines 

' .*************************************************** 
delay_10ms: 
push i 
Id i, #20 
delay_10ms_loop: 

call delay_500uS 

djnz i, delay_l Oms_loop 

pop i 

ret 

delay_100ms: 

push r4 

Id r4,#50 
delay_l 00ms_loop: 

call delay_l Oms 

djnz r4,delay_100ms_loop 
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pop r4 
ret 

delay_500uS: 

push i 

Id i,#23 
dl48uS: 

call port_delay 

djnz i,dl48uS 

pop i 

ret 
delay_ms: 
BlinkOne: 

GreenLedOn 

call delay_500uS 

BlinkOneHereToo: 
GreenLedOff 

call delay_500uS 
djnz i, delay_ms 
ret 

; Delay 108usec + 40 usee for the call 

portdelay: 
push j 
push j 
pop j 
pop j 

ret 

; Check key ON(true), OFF(false) 
; return: 

; cf = 1 if key depressed 

; cf = 0 if no key 

check_key: 

and p0, #KeyPadMask 
; cp p2, #0ffh 

Id r0,p2 
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and rO,#Ofh ;P00-P02 should be high. 

cp r0,#0fh 

jr eq, NoKeylsPressed 

scf 
ret 

NoKeylsPressed: 
rcf 
ret 

***********^ 
; Wait For Key Release And Start Three Second Timer 
; Determines if key was pressed for 3 seconds. 
Timer .equ rO 

; WaitForKeyReleaseAndStartThreeSecTimer: 
Id Timer,#Offh 

KeepTiming: 
Z dec Timer 

jr z, ThreeSecPassed 
call delay_l Oms 
call checkkey 
jr c, KeepTiming 
ret 

ThreeSecPassed: 
scf 
ret 

.************************************* 
;* Translate key number 

.************************* **********^^ 
TranslateKeyNumber: 

ldrr rO, rl, Translate 

addw rO,rl,#0,KEY_NUMBER 

ldc r2,@rr0 

Id KEY_NUMBER, r2 

ret 

TransError: 
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Id KEY_NUMBER, #Offh 
ret 

Translate: 

.byte KEY_1 

.byte KEY_2 

.byte KEY_3 

.byte KEY 4 

.byte KEY_5 

.byte KEY_6 

.byte KEY_7 

.byte KEY_8 

.byte KEY_9 

.byte KEYRECORD 

.byte KEY_0 

.byte KEYPROGRAM 
.end 
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file name: irutil.s 

7/27/93 

utility modules 



.include "keydef.inc" 

.include "fvt.inc" 

.include "data.inc" 

.include "equ.inc" 

.include "macro. inc" 



.global mul_8 
.global mult_16 
.global set_tl6_timer 
.global disable_tl6_timer 
.global FlashGreenLed 
.global FlashRedLed 

.extern delay_10ms 

.************************************************************ 

; Init timer 16 counter 

; set clock/8(each tick - 2 usee) 

; Terminal counts = 128 msec. 

******************************************************* 

set_tl6_timer: 
push rp 

srp 2dh ;REG_GROUP + EXTEND_GROUP_D 
Id tcl61,#0ffh 
Id tcl6h,#0ffh 

Id ctr2,#26h ;T16_CLK_2MHZ+T16_RESET_TOUT+T16_ENA_INT 
; enable interrupt 

Id ctrl, #11 11001 lb ; Set to normal mode 
or ctr2,#Tl 6_ENABLE 
or Ofbh, #MSK_3 
ei 



pop rp 
ret 
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.****************************************************** ****^ 

; Disable timer 16 counter 

; set clock/8(each tick - 2 usee) 

; Terminal counts = 128 msec. 

.************************************************************ 

disable_t 1 6_timer : 
push rp 

srp 2dh ;REG_GROUP + EXTEND_GROUP_D 

Id ctr2, #T16_RESET_TOUT 
and Ofbh, #~ MSK_3 

pop rp 

and IO_FLAGS,#~ TIMEOUT_FLAG 
ret 

.************************************************************ 
; FlashGreenled 



,******************************************************* ***** 

FlashGreenLed: 

push r8 

Id r8,#10 
fl_10: 

GreenLedOn 

call delay_10ms 

GreenLedOff 

call delay_10ms 

call delay_l Oms 

djnz r8, fl_10 

pop r8 

ret 

; FlashRedled 
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'*********************************^ 
FlashRedLed: 

push r8 

Id r8,#5 
frl_10: 

RedLedOn 

call delay_10ms 

call delay_10ms 

RedLedOff 

call delay_10ms 

call delay_10ms 

djnz r8, frl_10 

pop r8 

ret 

; Perform a 8 bit by 8 bit unsigned binary multiplication 

; input: rl 1 = 8 multiplier 

; rl2 =0 

; rl 3 = 8 multiplicand 

; return: 

; rrl2= product 

mul_8: 

Id mul_LEN, #9 
clr productJEI 
rcf 

lpl: 

rrc product_HI 
rrc product_LO 
jr nc,nxtl 

add product_HI,MULTIPLffiR 

nxtl: 

djnz mul_LEN,lpl 
ret 

**************************^ 

; Function: 
; mult_16 

; multiply 1 6 bit number n number of times 
; r9-># of times 
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; rl 0->h byte of the multiplicand 
; rl 1->1 byte of the multiplicand 
; rrl2->subordinates 

.*********************************** 

mult_16: 

Id rl2,rl0 

Id rl3,rll 

dec r9 

jr z,m_16ret 
m_16: 

addw rl0,rll,rl2,rl3 

djnz r9,m_16 
m_16ret: 

ret 
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File Name: DIALOUT. asm 
8/25/00 -SNV0.1 

This function does the dialing out to the phone line and piping the audio signal 
Inputs: none 
; Outputs: none 

.******************************^ 
; must be in this order 



.include 


"fvt.inc" 


.include 


"keydef.inc" 


.include 


"data.inc" 


.include 


"equ.inc" 


.include 


"macro. inc" 


.global 


DialOut 


.extern 


portdelay 


.extern 


enable_tl6_timer 


.extern 


disable_tl 6_timer 


.extern 


set_tl6_timer 


.extern 


delay_100ms 


.extern 


delay_10ms 



DigitPointer .equ 40h 
DialOut: 

;Port 0 inoutput mode only. We donot read the DTMF signals, in. 

;To dial out 
^Initialize XECOM 
;pull OH High 
;/WR = Low 
;/RD = High 
;/CS = Low 
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;D//V = Low 

;D4-D1= Digit transmitted. 

;Wait till /RI goes high, Indicates the ring is stopped. 
;Pipe the audio signal 
;Hang up and exit 



Id pl,#87h ;turn on grn light 

call InitXecom 

Id DigitPointer,#41h 

or pl,#10000000b ;P 1.7 pull high, 
OH, off hook 

call delay_100ms 

call delay_100ms 
KeepDialing: 

Id r2,@DigitPointer 

cp r2,#0ffh 

jr eq, DialingDone 

; and p2,#C_BIT3 

; Id p3,#00 100000b 

; or pl,#10000000b ;P 1.7 pull high, 
OH, off hook 

call delay_100ms 

call GetDigit 

; and p0,#C_BIT3 

; Id p3,#00 100000b 

; call delay_100ms 

OutDReg r2 

; and p0,#CBIT3 

Id P 3 ,#00 100000b 

; Id p3,#0001 0000b 

;* Id p3,#01010000b 

Id p3,#01 000000b 

; call delay_100ms 

or p0,#BIT3 

; Id p3,#0001 0000b 

; Id p3,#0 1000000b 
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inc DigitPointer 
jr KeepDialing 

; or p3 5 #BIT6 ;Chip Select in inactive 

;Supposedly connected 

;enable playback for 30 seconds... 



DialingDone: 

Id p3,#01 100000b 

call delay_100ms 

call delay_100ms 
; jr HangUp ;*** 

DialingDonel: 

; call port_delay 

; tbitz p2,#BIT4,DialingDonel ; Test for Ring Indicator 



CURR_LOOP_COUNTER_H,CURR_LOOP_COUNTER_L,T8_SECONDS ;20 second max 
recording 

or IO_FLAGS ,#TIMEOUT_FLAG ; This 

enables the time-out routine in IRIRQ.S 

call set_tl6_timer ; Give them a 

limited time in which to respond 

call port_delay 
WaitForTimeOutl: 

tbitnz IO_FLAGS ,#TIMEOUT_FL AG, WaitForTimeOutl 

LoopHere: 

call port_delay 
ldrr 

CURR_LOOP_COUNTER_H,CURR_LOOP_COUKTER_L,T30_SECONDS ;20 second max 
recording 

or IO_FLAGS ,#TIMEOUT_FL AG ; This 

enables the time-out routine in IRIRQ.S 

call set_tl6_timer ; Give them a 

limited time in which to respond 

and pl,#0fbh 

; Turn on the Audio pipe 

call port_delay 
WaitForTimeOut: 

tbitnz IO_FLAGS ,#TEvlEOUT_FLAG, WaitForTimeOut 

call disable_tl6_timer ; Timed_out, Stop the 

Time_out counter. 
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Id pl,#87h 
; Turn off the audio pipe 



call port_delay 
Idrr 

CURR_LOOP_COUNTER_H,CURR_LOOP_COUNTER_L,T30_SECONDS ;20 second max 
recording 

or IO_FLAGS,#TMEOUT_FLAG ; This 

enables the time-out routine in IRIRQ.S 

call set_tl6_timer ; Give them a 

limited time in which to respond 

Id pl,#083h 

; Turn on the Audio pipe 

call port_delay 
WaitForTimeOutO: 

tbitnz IO_FLAGS,#TIMEOUT_FLAG, WaitForTimeOutO 

call disable_tl6_timer ; Timed_out, Stop the 

Time_out counter. 

Id pl,#0f7h 

; Turn off the audio pipe 



HangUp: 

and p 1 ,#C_BIT7 ;Hang up and out of here 

ret 



WriteDTMF: 

;Sets up XECOM for writing to DTMF port 

; Id P01M, #00000 100b ; p0 = outputs (for leds) and keyscan 

columns 



and p0,#C_BIT3 ;RS0=0 

call port_delay 

and p3,#C_BIT4 ;/WR=0 

or p3,#BIT5 ;/RD=l 

and p3,#C_BIT6 ;CS=0 
ret 



Read Status: 

Id p01m,#0 1000 100b 
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and p3,#C_BIT6 ;cs=0 

or pO,#BIT3 

or p3,#BIT4 

and p3,#C_BIT5 

call delay_10ms 

nop 

nop 

ret 



InitXecom: 

; Id pO,#BIT3 ;RS0=1 

;* Id p3,#00010000b 

;* Id p3,#00100000b 

Id p3,#01 01 0000b 

Id p0,#19h;18h ;38h ;RegA,NoInterrupt,DTMF 
mode,Touch Tone mode 

Id P 3,#001 00000b 

; Id p3,#00100000b ;Toggle line 

; Id p0,#18h;38h 

; Id P 3 ,#00 100000b 

Id P 3,#01010000b 

Id p0,#99h;98h;98h ; Write to register B. Burst mode transmit 

Id P 3 ,#00 100000b 

Id p3,#01010000b 

Id p0,#08h ;08h 

Id p3 ,#00 100000b ;* 
; Id P 0,#08h ;* 

; Id p3,#001 00000b 

Id p3,#01 010000b 
; or p0,#08h 
; Id p3,#00010000b 

Id p3,#01010000b 

ret 



ret 
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GetDigit: 

ldrr rO, rl, TranslateDigits 
addw r0,rl,#0,r2 
ldc r2,@rr0 

ret 

TransError: 

Id r2, #0ffh 
ret 



TranslateDigits: 






.byte 


DIGITO 




.byte 


DIGIT 1 




.byte 


DIGIT2 




.byte 


DIGIT3 




.byte 


DIGIT4 




.byte 


DIGIT5 




.byte 


DIGIT6 




.byte 


DIGIT7 




.byte 


DIGIT8 




.byte 


DIGIT9 


DATAO 


.equ 


OOOOOOOOb 


DIGIT 1 


.equ 


00010001b 


DIGIT2 


.equ 


00100000b 


DIGIT3 


.equ 


00110001b 


DIGIT4 


.equ 


01000000b 


DIGIT5 


.equ 


01010001b 


DIGIT6 


.equ 


01100000b 


DIGIT7 


.equ 


01110001b 


DIGIT8 


.equ 


10000000b 


DIGIT9 


.equ 


10010001b 


DIGITO 


.equ 


10100000b 
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; INTERRUPT SERVICE MODULES 
; File Name: IRQ.asm 



.include "fvt.inc" 
.include "keydef.inc" 
.include "data.inc" 
.include "equ.inc" 
.include "macro. inc" 

;** external functions ** 



m ; UNUSED Interrupts 

: s| 7 .global irqO 

l~ .global irql 

.global irq2 

.global irq3 
T J .global irq4 

.global irq5 



; IRQ3 

; if io_flags.KEY_FLAG then deer. loop_count 
; if loop counts = 0 then stop count down 

irq3: 

push rp 

srp OUT_GROUP+EXTEND_GROUP_D 
tm ctr2,#T16_RESET_TOUT 
jr z,irq3_ret 

or ctr2,#T16_RESET_TOUT 
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; Deer. Loop Counter 

tm io_flags,#TIMEOUT_FLAG 
jr z,irq3_20 ; no flag 

subw curr_loop_counter_h,curr_loop_counter_l,#0,# 1 

jr nz,irq3_ret ;not yet time out 
; check low 

cp curr_loop_counter_l,#0 

jr nz,irq3_ret ;not yet time out 
; Reset 

and io_flags,#~ TIMEOUT_FLAG 
jr irq3_ret 

; Other functions 

irq3_20: 

; return 

irq3_ret: 

pop rp 
iret 



UNUSED 

i:******** ****************** ***************************** 



irqO: 
irql: 
irq2: 
irq4: 
irq 5: 

iret 



,****5|:*^:*j(:*************************************************** 

.end 
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; .list off 



KEY Assignment for Battery Charger 
keydef.h 
8/03/00 



So far we have the # pad and two extra keys. 









BIT_0 


equ 


0 


BIT 1 


equ 


1 


BIT_2 


.equ 


2 


BIT_3 


.equ 


3 


BIT_4 


.equ 


4 


BIT 5 


.equ 


5 


BIT 6 


.equ 


6 


BIT 7 


.equ 


7 



; key number 



KEY 0 


.equ 


0 


KEY 1 


.equ 


1 


KEY 2 


.equ 


2 


KEY 3 


.equ 


3 


KEY 4 


.equ 


4 


KEY 5 


.equ 


5 


KEY 6 


.equ 


6 


KEY_7 


.equ 


7 


KEY 8 


.equ 


8 


KEY 9 


.equ 


9 



KEY RECORD .equ 10 
KEYTEST .equ 1 1 

KEYPROGRAM .equ 12 

MAX_VALID_KEY .equ 12 ;last valid key 
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.list off 
; file name: data.h 



; unit = 32 mseconds 



TO SECONDS 


.equ 


0 


T2 SECONDS 


.equ 


55 


T4 SECONDS 


.equ 


122 


T5 SECONDS 


.equ 


4500/32 


T8 SECONDS 


.equ 


270 


T15 SECONDS 


.equ 


15000/32 


T30 SECONDS 


.equ 


30000/32 


T60_SECONDS 


.equ 


60000/32 



°f= ;utility flags 



- FLAG1 


.equ 


BIT0 


FLAG2 


.equ 


BIT1 


-'= FLAG3 


.equ 


BIT2 


FLAG4 


.equ 


BIT3 


^ FLAG5 


.equ 


BIT4 


j FLAG6 


.equ 


BIT5 


i FLAG7 


.equ 


BIT6 


■\ FLAG8 


.equ 


BIT7 



; internal ram/reg allocation 



; Register group 0 & 1 for stack ptr 
; Start from reg4 

.**********^*^^********************************* ************* 
stack_ptr .equ Oefh 

; Utility Group 0 - start from 4 
; 0,1,2,3 are IO port 

UTL_GROUP .equ OOh 
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register group 1 

Holds a 1 6-bit pointer to a DAT for a given device 
(AUX) can be any device. 

t:******************************************: 

PERM_GROUP .equ lOh 



MODE .equ llh 

PROGRAMMODE .equ BIT1 



.St**************** ******************************************* 

P_MODE .equ 12h ;default -> repeat everything 

PhoneNumberOK .equ BIT1 

.***#***************#******#****************:)!*:(:*#*##********* 

; register group 2 

; used general purpose register group 

REGGROUP .equ 20h 

col .equ rO 

row .equ rl 

i .equ r3 

j .equ r4 

loop_cnt .equ r9 

tmp_key .equ r7 

; Register group 3 - FOR OUTPUT MODULE 

OUT_GROUP .equ 30h 

io_flags .equ rO 

IO_FLAGS .equ 30h 
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TIMEOUT_FLAG .equ BIT1 

LOOP_COUNTER .equ 31H 

LOOP_COUNTER_L .equ 31H 

LOOP_COUNTER_H .equ 32H 



curr_loop_counter .equ r3 
curr_loop_counter_l .equ r3 
curr_loop_counter_h .equ r4 
CURRJLOOP_COUNTER .equ 33H 
CURR_LOOP_COUNTER_L .equ 33H 
CURR_LOOP_COUNTER_H .equ 34H 

KEY_FOR_CODE_FLAG .equ 39h 
TEMPMODE .equ 3 ah 



KEY_NUMBER .equ 3ch 

KEY_NTJMBER_BUFFER .equ 3eh 
CHECK1 .equ 3fh ;leave this here 

; Register Group 40h 

; This register group holds the phone number, one digit per byte. 
TELDATPOINTERGROUP .equ 40h 



CHECK2 .equ 6fh ;leave this here because Vince 

wants it here 

.********************************************^ 

•SPARE REG BANK 0 

CHECK3 .equ 7fh 

SPARE_GROUP .equ 090h 
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COUNTER .equ 090h 

HIGHCODE .equ 09 lh 

LOW_CODE .equ 092h 



MISC_FLAGS .equ 094h ; MISC_FLAGS 

SleepFlag .equ BIT2 ; MISC_FLAGS 

CHECK4 .equ 98h 



FIRSTDIGIT .equ 9ah 

SECONDDIGIT .equ 9bh 

THIRDDIGIT .equ 9ch 

-t timerjiigh .equ rl4 

timer_low .equ rl5 

■: TIMER_HIGH .equ 9eh 

J TIMER_LOW .equ 9fh 



' . END_OUT_REGS .equ 9fh 



TEMP_X .equ OdOh 
TEMP_Y .equ Odlh 



; Control Registers 

CTRL_GROUP .equ OfDh 

; extend data group 

EXTENDGROUPD .equ Odh 
EXTEND J3R0UP_F .equ Ofh 

.list on 
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; misc equates 

.*#*****###**##*##*#************^ 
mul_LEN .equ rl4 
MULTIPLIER .equ rll 
product_LO .equ rl3 
product_HI .equ r!2 
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.list off 
; file name: fvt.h 

; Output & Edge detector 

; p31 - edge detector 

; p34 - t8_out 

; p35 - t8_out & tl 6_out logic 

; p36 - tl6_out 

.**#####**#******************###^ 
; GENERAL EQUATES 

1IT0 .equ Olh 

BIT1 .equ 02h 

MT2 .equ 04h 

BIT3 .equ 08h 

BiT4 .equ lOh 

EIT5 .equ 20h 

BIT6 .equ 40h 

BIT7 .equ 80h 



€t BITO 


.equ 


11111110b 


C BIT1 


.equ 


11111101b 


O BIT2 


.equ 


11111011b 


C_BIT3 


.equ 


11110111b 


: C BIT4 


.equ 


11101111b 


C BIT5 


.equ 


11011111b 


C BIT6 


.equ 


10111111b 


C BIT7 


.equ 


01111111b 


; PORTS 





PortO .equ 00 

Portl .equ 01 

Port2 .equ 02 

Port3 .equ 03 



register definitions 
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; 17x registers 

; bankD 

ctrO .equ OOh 

Ctrl .equ Olh 

ctr2 .equ 02h 

tc81 .equ 04h 

tc8h .equ 05h 

tcl 61 .equ 06h 

tcl6h .equ 07h 

I0I6 .equ 08h 

hi 16 .equ 09h 

I08 .equ Oah 

hi 8 .equ Obh 

; BankF 

peon .equ 00 ;xxxx xxxO 
smr .equ Ob ;0010 00x0 

sriir2 .equ Od ;xOxO OOxx 
wdtmr .equ Of ;xxx0 1101 

; Control register 0 

; ; Counter/timer 8 control register 

T8_ENABLE .equ BIT7 

T8S INGLE .equ BIT6 
T 8_RESET_TOUT .equ BIT5 ;reset flag to 0 
T8_CLK_4MHZ .equ 00 
T8_CLK_2MHZ .equ BIT3 
T8_CLK_1MHZ .equ BIT4 
T8_CLK_1_2MHZ .equ BIT4+BIT3 

T8_ENA_INT .equ BIT1 ;enable Time-out int(IRQ3) 
P34_OUT .equ BITO 

T16_ENABLE .equ BIT7 
T 1 6_EN ABLE_C .equ 07fh 

T16_SINGLE .equ BIT6 ;transmit mode 
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T16_IGNORE_EDGE .equ BIT6 ;tl 6 ignore edge 
T16_RESET_TOUT .equ BITS ;reset flag to 0 
T 1 6_CLK_4MHZ .equ 00 
T16_CLK_2MHZ .equ BIT3 
T16_CLK_1MHZ .equ BIT4 
T16_CLK_1_2MHZ .equ BIT4+BIT3 

T16_CAP_INT .equ BIT2 ;enable data capture int. 

T16_ENA_INT .equ BIT1 ;enable Time-out int.(IRQ3) 
P35_OUT .equ BITO 

; delay unit based on tl6 - use 2mhz 
; terminal counts = 32 mseconds 

UNIT .equ 010000h/2/1000 

piem - port 1 mode selection regiser 

pi em .equ Och 

P1ADDR .equ BIT4 
P1_H_IMPEDENCE .equ BIT4+BIT3 

; peon - port configuration register 



P36_P00_COMPR .equ BITO 
; p3m - port 3 mode register 



P2_PUSH_PULL .equ BITO 
P31_ANALOG_MODE .equ BIT1 



P33_IN_P34_OUT .equ 00 
P33_IN_P34_DM .equ BIT3 
P33_DV_P34_RDY .equ BIT4 

P31_DV_P36_RDY .equ BIT5 ;TOUT 

; pOlm 

; pO & PI - port 0 & 1 mode register 
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; pOO - p03 mode 

P00_OUT .equ 00 
P00_IN .equ BITO 
P00_ADDR .equ BIT1 



STACK JNTERNAL .equ BIT2 

P01OUT .equ 00 
P01_IN .equ BIT3 
P01_ADDR .equ BIT4 
P01_HIMPE .equ BIT4+BIT3 



E|XT_MEM_EXTEND .equ BIT5 

:p04 - p07 mode 

P04_OUT .equ 00 
P04_IN .equ BIT6 
P04_ADDR .equ BIT7 

ipr - interrupt priority reg 

IRQ - interrupt request reg 



IRQ_0 .equ BITO 

IRQ_1 .equ BIT1 

IRQ_2 .equ BIT2 

IRQ_3 .equ BIT3 

IRQ_4 .equ BIT4 , 

IRQ P31L P32L .equ 00 

IRQ_P31L_P32H .equ BIT6 

IRQ_P31H_P32L .equ BIT7 

IRQ_P31H_P32H .equ BIT7+BIT6 



;P32 input 
;P33 input 
;P31 input 

;TC16 output/TCI 6 timeout 
;TC8 output/TC8 timeout 



msk - interrupt mask reg. 



MSK_0 
MSK_1 
MSK_2 
MSK 3 



.equ 
.equ 
.equ 
.equ 



BITO 
BIT1 
BIT2 
BIT3 



P32 input(enable) 
P33 input 
P3 1 input 

,TC16 output/TCI 6 timeout 
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MSK_4 .equ 
MSK_P31L_P32L 
MSK_P31L_P32H 
MSK_P31H_P32L 
MSK_P31H_P32H 
.list on 



BIT4 ;TC8 output/TC8 timeout 



.equ 
.equ 
.equ 
.equ 



00 

BIT6 
BIT7 

BIT7+BIT6 
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.list off 
; file name: equ.h 



TRUE .equ 1 

FALSE .equ 0 

ON .equ 1 

OFF .equ 0 

YES .equ 1 

NO .equ 0 

HIGH .equ 1 
LOW .equ 0 

ACTIVEJLOW 
ACTIVEHIGH 
BIT_COMPLEMENT 



.equ 0 
.equ BIT1 
.equ BIT2 



;** Status LED's - pOO, pOl ** 
GreenLedEnable .equ C_BIT1 
GreenLedDisable .equ BIT1 

RecordLedEnable .equ C_BIT0 
RecordLedDisable .equ BITO 



KeyPadMask .equ 0f8h 
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; .list off 

.##*****#*####*##*********#*#*#******##*#*^ 

sip .macro argl 

; .byte 31h,#(argl) 

Id rp,#argl 

.endm 

; STOP macro 

m_stop .macro 
ei 

nop 
nop 
stop 
.endm 

; HALT macro 

m_halt .macro 
ei 

nop 
nop 
halt 
.endm 

3elect_Xecom .macro 
and p3,#C_BIT6 
.endm 

ToggleBits .macro 

and p0,#0fh 

Id p3,#00000000b 

; and p3,#C_BIT4 

; and p3,#C_BIT5 

and pO,#C_BIT3 

; or p3,#BIT6 

.endm 
; rsOwrrd macro 
rsOwrrd .macro const l,const2,const3 



;Reset p3.4 
;Reset p3.5 
;Reset p0.3 RSO 
;CS=1 
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and 



Id 
call 



port_delay 

p3,#C_BIT6 
pO,#constl 
p3,#const2 
p3,#const3 
p3,#00 100000b 

port_delay 



;CS=0 

;Set p0.3 appropriately 
;set P3.4 
;set P3.5 
;rd=l, wi=0 



and p0,#00001111b 
Id p0,#constl 



OutDReg .macro reg 
/ and P 0,#00001111b 
Id p0,reg 



turn on green led 




turn off green led 
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RedLedOn .macro 

and pO, #00h ;RedLedEnable 
.endm 

; turn off red led 

RedLedOff .macro 

or pO, #0ffh ;RedLedDisable 
.endm 

; load pair register 

; regl = high, reg2 = low 

; reg3 = high, reg4 = low 

Idw .macro regl,reg2,reg3,reg4 
Id regl,reg3 
Id reg2,reg4 
.endm 

; Load pair register 
; regl = high reg 
; reg2 = low reg 

Idrr .macro regl,reg2,const 
Id regl,#HIGH(const) 
Id reg2, #LOW(const) 
.endm 

; add a word 

; tgtlow,tgthigh = result 

; srclow,srchigh = adder 

.********************************^ 

addw .macro tgthgh,tgtlow,srchgh,srclow 
add tgtlow,srclow 
adc tgthgh,srchgh 
.endm 

; subtract a word 
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; tgtlow,tgthigh = result 
; srclow,srchigh = adder 

.************************************************************ 

subw .macro tgthgh,tgtlow,srchgh,srclow 
sub tgtlow,srclow 
sbc tgthgh,srchgh 
.en dm 



subtract a word 
tgtlow,tgthigh = result 
srclow,srchigh = adder 

sub3byte .macro tgthgh,tgtmid, tgtlow,srchgh,srcmid,srclow 
sub tgtlow,srclow 
sbc tgtmid,srcmid 
sbc tgthgh,srchgh 
.endm 

********************************************************* 

Shift to right through carry 

gc*********************************************************** 

shtr .macro regO 
rcf 

rrc regO 
.endm 

.^!*********************************************************** 

; Shift to left through carry 

shtl .macro regO 
rcf 

rlc regO 
.endm 

Test bit and jump if zero flag = 1 

tbitz .macro flag,bit,jmp 
tm flag,bit 
jr zjmp 
.endm 

:********************************************************* 

Test bit and jump if zero flag = 0 
tbitnz .macro flag,bit,jmp 
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tm flag,bit 
jr nzjmp 
.endm 

.list on 



A-49 



dcbc 



Zilog Linkage Editor. Version T2.1 1 16-May-101 18:15:11 Page: 1 
LINK MAP: 

Date: Wed May 16 18:15:11 2001 
Processor: Z8 

Files: [Command] D:\battcharger\dcbc.cmd 
[Object ] D:\battcharger\main.o 
[Object ] D:\battcharger\KEYNEW.o 
[Object ] D:\battcharger\SRVKEY.o 
[Object ] D:\battcharger\Dialout.o 
[Object ] D:\battcharger\UTEL.o 
[Object ] D:\battcharger\irq.o 

COMMAND LIST: 



j 1 : -q D:\battcharger\dcbc.cmd 

2 , ZDS Generated Linker Command File 
3: -A 
4 -g 

5: -m "D:\battcharger\dcbc.map" 
6: Range RFILE %0,%100 
7 : Range XD ATA %4000,%COOO 
8: Range ROM %0,%4000 

9 -o "D \battcharger\dcbc" 

10 "D \battcharger\main.o" 

1 1 : "D:\battcharger\KEYNEW.o" 
12: "D:\battcharger\SRVKEY.o" 
s; 13: "D:\battcharger\Dialout.o" 
14: "D:\battcharger\UTIL.o" 
15: "D:\battcharger\irq.o" 

Zilog Linkage Editor. Version T2.ll 16-May-101 18:15:11 Page: 2 
SPACE ALLOCATION: 



Space Base Top Span 



ROM 00000000 00000493 494h 

SEGMENTS WITHIN SPACE: 



ROM Type Base Top Span 
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code relocatable 00000000 00000493 494h 

Zilog Linkage Editor. Version T2.ll 16-May-101 18:15:11 Page: 3 
SEGMENTS WITHIN MODULES: 

Module: main.asm (File: D:\battcharger\main.o) Wed May 16 18:15:07 2001 

Name Base Top Size 

Segment: code 00000000 00O00OFE 255 

Module: KEYNEW.asm (File: D:\battcharger\KEYNEW.o) Mon May 07 10:42:35 2001 

Name Base Top Size 

Segment: code 000000FF 0000023F 321 

Module: SRVKEY.asm (File: D:\battcharger\SRVKEY.o) Wed May 16 18:15:09 2001 

Name Base Top Size 

Segment: code 00000240 000002FF 192 

Module: Dialout.asm (File: D:\battcharger\Dialout.o) Wed May 16 18:05:57 2001 

Name Base Top Size 

Segment: code 00000300 000003ED 238 

Module: UTIL.asm (File: D:\battcharger\UTIL.o) Mon May 07 10:42:40 2001 

Name Base Top Size 

Segment: code 000003 EE 0000046B 126 

Module: irq.asm (File: D:\battcharger\irq.o) Mon May 07 10:42:42 2001 

Name Base Top Size 

Segment: code 0000046C 00000493 40 
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Zilog Linkage Editor. Version T2. 11 16-May-101 18:15:11 Page: 
EXTERNAL DEFINITIONS BY ADDRESS: 



Symbol Address Module Segment 



WaitForKeyPress OOO0O0FF KEYNEW.asm code 
WaitForKeyPressUserDelay 000001 ID KEYNEW.asm code 

ScanKeyPad 00000 14D KEYNEW.asm code 

wait_key_off 000001B1 KEYNEW.asm code 

WaitForKeyRelease 000001B1 KEYNEW.asm code 
WaitForKeyReleaseFlashRed 00000 IB A KEYNEW.asm code 

delay_10ms 00000 1C3 KEYNEW.asm code 

delay_100ms 00000 1CF KEYNEW.asm code 

delay_500uS 00000 1DB KEYNEW.asm code 

delayjns 000001 E7 KEYNEW.asm code 

pprt_delay 00000 1F6 KEYNEW.asm code 

ctieck_key 000001FF KEYNEW.asm code 
WaitForKeyReleaseAndStartThreeSe 00000210 KEYNEW.asm code 

fbrviceCode 00000240 SRVKEY.asm code 

DjialOut 00000300 Dialout. asm code 

set_tl6_timer 000003EE UTIL.asm code 

disable tl 6 timer 00000409 UTIL.asm code 

FlashGreenLed 0000041 A UTIL.asm code 

FlashRedLed 00000432 UTIL.asm code 

mul_8 0000044D UTIL.asm code 

mult_16 0000045D UTIL.asm code 

irq3 0000046C irq.asm code 

•irq5 00000493 irq.asm code 

irq4 00000493 irq.asm code 

irq2 00000493 irq.asm code 

irql 00000493 irq.asm code 

irqO 00000493 irq.asm code 

KEY_NUMBER 0000003C main.asm (unknown) 



KEY_NUMBER_BUFFER 0000003E main.asm (unknown) 

29 External symbols. 

Zilog Linkage Editor. Version T2.ll 16-May-101 18:15:11 Page: 
EXTERNAL DEFINITIONS BY NAME: 



Symbol Address Module Segment 
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check_key 
delay_100ms 
delay_10ms 
delay_500uS 
delay_ms 
DialOut 

disable_tl6_timer 
FlashGreenLed 
FlashRedLed 
irqO 
irql 
irq2 
irq3 
irq4 
irq5 

.KEY_NUMBER 
KEY NUMBER_BUFFER 



000001FF KEYNEW.asm code 
000001 CFKEYNEW.asm code 
000001 C3 KEYNEW.asm code 
00000 1DB KEYNEW.asm code 
00000 1E7 KEYNEW.asm code 
00000300 Dialout.asm code 
00000409 UTIL.asm code 
0000041A UTIL.asm code 
00000432 UTIL.asm code 
00000493 irq.asm code 



00000493 irq.asm 
00000493 irq.asm 
0000046C irq.asm 
00000493 irq.asm 
00000493 irq.asm 



code 
code 
code 
code 
code 



0000003C main.asm (unknown) 

0000003E main.asm (unknown) 



rnul_8 0000044D UTIL.asm code 

mult_16 0000045D UTIL.asm code 

pprt_delay 00000 1F6 KEYNEW.asm code 

"^canKeyPad 00000 14D KEYNEW.asm code 

ServiceCode 00000240 SRVKEY. asm code 

set_tl6_timer 000003EE UTIL.asm code 

wait_key_off 000001B1 KEYNEW.asm code 

WaitForKeyPress OO00O0FF KEYNEW.asm code 

WaitForKeyPressUserDelay 000001 ID KEYNEW.asm code 
WaitForKeyRelease 000001B1 KEYNEW.asm code 

WaitForKeyReleaseAndStartThreeSe 0000021 0 KEYNEW.asm code 
WaitForKeyReleaseFlashRed 00000 1BA KEYNEW.asm code 

29 External symbols. 

Zilog Linkage Editor. Version T2.ll 16-May-101 18:15:11 Page: 6 



SYMBOL CROSS REFERENCE: 



Symbol Module Use 

check_key KEYNEW.asm Definition 

delay_100ms KEYNEW.asm Definition 

main.asm Reference 
Dialout.asm Reference 
delay_10ms KEYNEW.asm Definition 
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delay_500uS 
delay _ms 



Dialout.asm Reference 
UTIL.asm Reference 

KEYNEW.asm Definition 
KEYNEW.asm Definition 



DialOut 


Dialout.asm Definition 




main.asm 


Reference 


disable_tl 6_timer 


UTIL.asm Definition 




main.asm 


Reference 




KEYNEW.asm Reference 




Dialout.asm 


Reference 


FlashGreenLed 


UTIL.asm Definition 


FlashRedLed 


UTIL.asm Definition 


irqO 


irq.asm 


Definition 




main.asm 


Reference 


irql 


irq.asm 


Definition 




main.asm 


Reference 


irq2 


irq.asm 


Definition 




main.asm 


Reference 


irq3 


irq.asm 


Definition 




main.asm 


Reference 


irq4 


irq.asm 


Definition 




main.asm 


Reference 


irq5 


irq.asm 


Definition 




main.asm 


Reference 



KEY_NUMBER 
KEY_NUMBER_BUFFER 
mul 8 



mult_16 
port_delay 



main.asm Definition 

main.asm Definition 
UTIL.asm Definition 
KEYNEW.asm Reference 
UTIL.asm Definition 
KEYNEW.asm Definition 
SRVKEY.asm Reference 
Dialout.asm Reference 

KEYNEW.asm Definition 
SRVKEY.asm Definition 
main.asm Reference 

UTIL.asm Definition 
KEYNEW.asm Reference 
Dialout.asm Reference 

KEYNEW.asm Definition 
SRVKEY.asm Reference 

KEYNEW.asm Definition 
main . asm Reference 
SRVKEY.asm Reference 
WaitForKeyPressUserDelay KEYNEW.asm Definition 



ScanKeyPad 
ServiceCode 

set_tl6_timer 

wait_key_off 
WaitForKeyPress 
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SRVKEY.asm Reference 
WaitForKeyRelease KEYNEW.asm Definition 

WaitForKeyReleaseAndStartThreeSe KEYNEW.asm Definition 
WaitForKeyReleaseFlashRed KEYNEW.asm Definition 

End of link map: 

Zilog Linkage Editor. Version T2.ll 16-May-101 18:15:11 Page: 7 
Symbol Module Use 



0 Warnings 
0 Errors 
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irq5 X 00000493 

irq4 X 00000493 

irq2 X 00000493 

irql X 00000493 

irqO X 00000493 

irq3 X 0000046C 

mult_16 X0000045D 

mul_8 X 0000044D 

FlashRedLed X 00000432 

FlashGreenLed X 0000041 A 

disable_tl6_timer X 00000409 

set_tl6_timer X 000003EE 

DialOut X 00000300 

ServiceCode X 00000240 

WaitForKeyReleaseAndStartThree X 00000210 

check_keyX 00000 IFF 

port_delay X 00000 1F6 

delay_ms X 00000 1E7 

delay_500uS X 000001DB 

delay_100ms X 000001CF 

delay_10msX 000001 C3 

WaitForKeyReleaseFlashRed X 00000 IB A 

wait_key_off X 00000 1 B 1 

WaitForKeyRelease X 000001B1 

ScanKeyPad X 000001 4D 

WaitForKeyPressUserDelay X 000001 ID 

WaitForKeyPress X OOOOOOFF 

KEY_NUMBER X 0000003C 

KEY_NUMBER_BUFFER X 0000003E 
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ZiLOG Developer Studio Workspace File 

# WARNING: DO NOT EDIT OR DELETE THIS WORKSPACE FILE! 

[PRJ VERSION] 
#begin 

VERSION = 300 
#end 

[MCU TARGET] 
#begin 

NAME = Z86L72 
#end 

[EMULATOR] 
#begin 

NAME = Z86L7100ZEM 
#end 

-|PRJ NAME] 
J -#begin 
NAME = dcbc.zws 
TYPE = APP 
Send 

f PRJ PATH] 
- #begin 

" PATH = D:\battcharger\ 
#end 

[FILES] 
#begin 

SOURCE = main.asm 
SOURCE = KEYNEW.asm 
SOURCE = SRVKEY.asm 
SOURCE = Dialout.asm 
SOURCE = UTIL.asm 
SOURCE = irq.asm 
#end 

[DEPENDENCIES] 
#begin 

DEP = fvt.inc 
DEP = keydef.inc 
DEP = data.inc 
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DEP = equ.inc 
DEP = macro, inc 
#end 

[C SETTINGS] 
#begin 
C = -g 
C = -Ms 

c= -w 

C = -ZiLOG 
#end 

[ASM SETTINGS] 
#begin 

ASM = -1 -g -q 
#end 

[LNK SETTINGS] 
#begin 

LNK = -Z-g-m-q 
LNK - -r RFILE %0 : %FF 
LNK = -r XDATA %4000 : %FFFF 
LNK = -r ROM %0 : %3FFF 
.#end 

[LIB SETTINGS] 
#begin 
LIB = -q 
#end 

[DEBUG SETTINGS] 

#begin 

VALUE = 0 

PAD = 0 

#end 

[COM SETTINGS] 
#begin 

PORT = COM2 
BR = 57600 
#end 

[WND STATUS] 
#begin 
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K> = 0 
OPEN = 0 
1D = 1 
OPEN = 0 
ID-2 
OPEN = 0 
BD = 3 
OPEN = 0 
ID = 4 
OPEN = 0 
ID = 5 
OPEN = 0 
ID = 6 
OPEN = 0 
ID = 7 
OPEN = 0 
ID = 8 
OPEN = 0 
ID = 9 
OPEN = 0 
ID = 10 
OPEN = 0 
ID = 11 
OPEN = 0 
ID= 12 
OPEN = 0 
ID= 13 
OPEN = 0 
ID = 14 
OPEN = 0 
ID = 15 
OPEN = 0 
ID = 16 
OPEN - 0 
ID= 17 
OPEN = 0 
ID= 18 
OPEN = 0 
K> = 19 
OPEN = 0 
ID = 20 
OPEN = 0 
ID =21 
OPEN = 0 
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ID = 22 
OPEN = 0 
ID = 23 
OPEN = 0 
ED = 24 
OPEN = 0 
ID = 25 
OPEN = 0 
ID = 26 
OPEN = 0 
ID = 27 
OPEN = 0 
#end 

[OTP SETTINGS] 
#begin 

DEVICE = Z86E72 
TOPMARK= Standard 
TYPE = -2124744304 
OPTIONS = 0 
METHOD = 0 
SIZE = 1 

ADDRESS = 4294967295 

S EPJALNUMB ER = 4294967295 

REP = 0 

#end 

[WATCH SETTINGS] 
#begin 

#end 

[C WATCH SETTINGS] 

#begin 

Tabid = 0 

Tabid = 1 

Tabid = 2 

Tabid = 3 

#end 

[OVERRIDE SETTINGS] 
#begin 
STATUS = 0 
SIZE = 16384 
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#end 

[BREAKPOINT SETTINGS] 
#begin 

FILENAME = D:\battcharger\SRVKEY.asm 
LINE = 201 

ADDRESS = 0x000002fa 

FILENAME = D:\battcharger\SRVKEY.asm 

LINE = 198 

ADDRESS = 0x000002f4 

FILENAME = D:\battcharger\SRVKEY.asm 

LINE =112 

ADDRESS = 0x0000028b 

FILENAME = D:\battcharger\Dialout.asm 

LINE = 146 

ADDRESS = 0x00000390 

FILENAME = D:\battcharger\Dialout.asm 

LINE = 138 

"ADDRESS = 0x000003 8c 
FILENAME = D:\battcharger\main.asm 
LINE = 184 

ADDRESS = 0x000000a4 
FILENAME = D:\battcharger\main.asm 
LINE = 165 

ADDRESS = 0x00000098 
~#end 
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:00000003FD 
:00000001FF 
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: 1 00000000493 04930493 046C0493 0493E6FE00E6C3 
: 1 000 1 000FFEFE6F700E6F6FFE6F804E6FD0DE60082 
: 1 00020002 0E60 1 03E60220E6FDOFE60FOOE600FEF3 
: 1 0003000E60E04760080EB2CE60020E6FD20A63FCD 
: 1 0004000AAEB0AA66FAAEB05 A67FAA6B 1 7E6FD002E 
: 1 00050005 8FFB 1 E500E5 A6E505EBF7E63FAAE66F38 
: 10006000AAE67FAAE6FD20E61 100E61200E6020FEE 
:10007000E60147460340E600084600FF1803760302 
:10008000026B217603046B1CD600FFFBD7D602401F 
:10009000D600FF7BF8D604097603026B07760304CB 
:1000A0006B028BCOE64CFFD601CFD603008BB54365 
:1000B0006F70797269676874202863293230303034 
: 1 000C0002D3230303 1 20436861 6D6265726C61 6938 
:1000D0006E2047726F75702E20446576656C6F7068 
:1000E00065642062792059616D7465636820496E8A 
:OFOOF000632C20383437203936332032383239F8 
; 1 OOOFF0076 1 1 02EB08E6320 1 E63 1 0E8B06E6320 1 8D 
:10010FOOE6310ED601B17611026B035600FDE432D3 
:10011F0034E43133463002D603EED6014DFB157869 
'1001 2F003 C9C32D60 1 4DFB0CA43CE7EB079 AF4D66E 
: 1 00 1 3F000409DFAF763 002EBE 1 D60409CF AF5 600EA 
; 1 00 1 4F00F8E63 CFFBOE 1 3 CO 1 A6E 1 04BB3 D48E3 5 4B 7 
: 1 00 1 5F0002E46B07 1 E90E3FBEF8B2FBOE04600FF2E 
: 1 00 1 6F005 600FEA6E004BB22D601 F6D60 1 F65 802D 1 
:10017F0056E50FA6E50FEB17580046E5F890E54654 
: 1 00 1 8F00E5F854E500FB030E8BD95600F8CFAFB856 
: 1 00 1 9F00E 1 DC03D6044D02DOD93C5600F8D6022 1 3B 
: 1 00 1 AF00DFAF5600F8D601 FF7BFBAF5600F8D60 1 44 
:1001BF00FF7BFBAF70E33C14D601DB3AFB50E3AFA0 
: 1 00 1 CF0070E44C32D601 C34AFB50E4AF70E33C 1 7E6 
: 1 00 1 DF00D60 1 F63 AFB50E3 AF5600FDD60 1 DB4600E 1 
: 1 00 1 EF0002D60 1DB3 AF2AF70E470E450E450E4AFB2 
:1001FF005600F8080256E00FA6E00F6B02DFAFCFF4 
: 1 0020F00 AF0CFF00E06B09D60 1 C3D601 FF7BF4AF43 
: 1 002 1 F00DFAF0C02 1 C34043 CE1 1 6E000C220293 C85 
:10022FOOAFE63CFFAF0102030405060708090A0009 
:01023FOOOCB2 

: 1 0024000A63C0CBB0CA63C0A6D02C6A63C0C6D027B 
:1002500052AF4611025601BFE64041D601B1E63227 
: 1 002600003E63 1 A9D601 1DFD029FD602B07D029F93 
:10027000F53C402040D600FFFD029F5600FDA63C05 
: 1 002800009BD029FF53C4020408AEAE740FF460056 
: 1 0029000FFE6 1 1 00CF460 1 4046 1 202D60 1 B 1 AFE79 A 
: 1 002 A00040FF4600FF460 1 40E6 1 1 005 6 1 2FDDFAF5 9 
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: 1 002B0008COAA63C006B09A63C01 6B028C06CFAFF2 
:1002C0008C00DF8B20AFD601B1E63203E631A9E620 
: 1 002DOOOO 1 06D60 1F6D60 1 1 DFD02DEE60 1 07E601 A4 
: 1 002E0000746 1 1 00AFD60 1 B 1 E60 1 03D60 1 F6E632AA 
: 1 002F00003E63 1 A9D601 1DFD02DEE601 07DF8BDE34 
:10030000E60187D603B5E64041460180D601CFD647 
: 1 003 1 0000 1 CFE540E2 A6E2FF6B 1 5D601 CFD603D5 AB 
: 1 00320002900E60320E6034046000820408BE3E670 
: 1 0033 0000360D60 1 CFD60 1 CFE6340 1 E63 3 0E463056 
:1003400002D603EED601F6763002EBFBD601F6E6D6 
:100350003403E633A9463002D603EE5601FBD6013C 
:10036000F6763002EBFBD60409E60187D601F6E605 
:100370003403E633A9463002D603EEE60183D60104 
: 1 003 8 000F6763002EBFBD60409E60 1 F7560 1 7F AF A3 
:100390005600F7D601F65603EF4603205603BFAFCB 
: 1 003 A000E6F8445603BF4600084603 1 05603DFD65E 
-U003B00001C3FFFFAFE60350E60019E60320E603A2 
\ 1 003C00050E60099E60320E60350E60008E6032025 
\ 1 OO3D000E6O3 50AFAF0C03 1 CE402 1 2 1 6E000C2208B 
. ;0E03E000AF2CFFAFA01 12031405160718091 1 1 
•••1003EE0070FDE6FD2DE606FFE6O7FFE60226E601B6 
•: 1 003FEOOF346028046FB089F50FDAF70FDE6FD2DD3 
1 0040EOOE6022056FBF750FD5630FDAF70E88COA21 
: 1 004 1 E005 600FDD601 C3460002D601 C3D601 C3 8 ADB 
-:lO042E00EF50E8AF70E88CO556OO0OD6OlC3D60138 
d0043E00C34600FFD6OlC3D601C38AEC50E8AFEC29 
■ 1 0044E0009BOECCFCOECCOEDFB0202CBEAF6AFC8BO 
!OEO45EOOEAD8EB00E96B06O2BD12AC9AFAAFC9 
ho046C0070FDE6FD3D7602206BlA46022076E00216 
:1 0047C006B 1 226E301 36E400EB0AA6E300EB05560B 
:08048C00EOFD8B005OFDBFBF35 
:00000003FD 
:00000001FF 
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; FILENAME: fmdkey.s 



DESCRIPTION: 



REVISION HISTORY: 



V1.0 Date: 6/7/94 
V2.0 Date: 8/14/96 
V3.0 Date: 10/96 



Author: 



************************************************************** 



* include files * 



.include fvt.h 

.include data.h 

.include equ.h 

.include keydef.h 

.include macro.h 

K external functions ** 



.extern ParseDAT 
.extern CheckPunchThru 
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.extern WaitForKeyReleaseFlashRed 
.extern SendIR 
.extern SetDriver 
.extern ScanKeyMap 

.extern mul_8 
.extern check_key 
.extern blink_green 

.extern GetSleepTime 
.extern ConfigForSleep 
.extern DeviceLightsOff 

.extern Check VolPriority 

;** public functions ** 

.global SendCode 

****************************************************** 
FILENAME: findkey.s 

, SendCode 

; Version: 

Date: 09/30/96, 11:42:30 
; Author: 

Function: Sends Key Data for all send modes, ie Normal, Action, and Double Actio 

n 

; Inputs: 

; KEY_NUMBER = (range of 0 to 36), only sending keys if it got here 

; IR_MODE = signifies if in action/double action/punchthru/ .... 

; SELECTED_DEVICE = last device key hit /// ACTIVE_DEVICE = current 

device to send 

; DEVICE_FLAG = last device key hit to restore last code after punchthru 

; SendCounter = number of times to send 1 = send once (if 0 then send once 

only) 

; OVERLAYADDR, OVERLAY_ADDR+ 1 : address to overlayed dat file 

MapSize .equ #40 
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Returns: 

CF = 0 - OK 
CF=1 -Error 

Modifies: 

Subords: 



SendCode: 

;** punch thru overhead ** 

push DEVICE_FLAG ; in case we do 

punch thru we can get back to original mode 

Id ACTIVE_DEVICE, SELECTED_DEVICE 

Id ACTIVE JDEVICE+ 1 , SELECTEDDEVICE+ 1 



;** volume priority ** 
call CheckVolPriority 
volme priority 

PunchThruStart: 

and %fc, #11 111 100b 

Id rO, ACTIVE_DEVICE 
or rO, ACTIVE_DEVICE+1 
jp z, ExitError 
ExitError 

Id rO, ACTIVE_DEVICE 
Id rl, ACTIVE_DEVICE+1 
dat file 



; reconfigs for device with 



; clear user flags 



; code isn't programmed, 



; rrO = pointer to 



;** rrO ptr to dat file, parse the 1st and 2nd byte of the dat file ** 

ldc r3, @rr0 

Id MOD TYPE, r3 

incw rrO 

ldc r3, @rrO 

Id CODE_LEN_BITS, r3 ; CODE_LENJBITS defined 

and r3, #3fh 
Id r4, r3 
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sra r3 
sra r3 



; divide 



CODE_LEN_BITS by 8 



sra r3 
and r4, #07h 
jr z, NoRemainder 



; if the lower 3 



bits are 0, there will be no remainder. 

inc r3 
NoRemainder: 

Id CODE_LEN_B YTES , r3 ; 
CODE LEN BYTES defined 

;** parse the 1st and 2nd byte of the dat file ** 

incw rrO ; point to 

CARRIER (3rd byte of dat file) 

call ParseDAT ; inputs: rrO=ptr to dat+2 

^CARRIER), MODTYPE; outputrrO points to keymap[0] 

;** adjust KEY_NUMBER to action/double_action range ** 

tbitnz IRMODE, #DOUBLE_ACTION_MODE, InDoubleActionMode 

tbitnz IRJVIODE, #ACTION_MODE, InActionMode 

jr OverHeadDone 

InDoubleActionMode : 

add KEY NUMBER, #MapSize ; adjust to 

ActionMode 
InActionMode: 

add KEY_NUMBER, #MapSize ; adjust to 

ActionMode 

OverHeadDone: 

Id KEY_NUMBERJBUFFER, KEY_NUMBER ; make a copy for 
checkpowerflag 

;** KEY_NUMBER defined, check if pip special feature ** 
; call CheckPipFlag ; add 40 to 

KEY_NUMBER if needed 

;** rrO points byte after FLAG byte! Either keymap[0] or standardkeygroup ** 
call CheckStandardKeys ; adjust rrO to 

STAND ARD_NUMBER_GROUP if FLAG set 

jr nc, OffsetConfigured ; c=0 if standard key 

;** rrO points to keymap [0] ** 



call ScanKeyMap 



; input: 
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KEY_NUBMER and rrO = pointer to keymap[0]; output: KEY_NUMBER = offset into dat 
jr nc, KeylnMap 

;** not in keymap, check if it's overlayed ** 
call CheckOverlay ; returns: rrO 

points to flag byte 

jr c, NoOverlay 

call ReconfigFlagByte ; inputs: rrO points to flag byt 

e 

incw rrO ; point to byte 

after flag byte 

jr OverHeadDone 

NoOverlay: 

call CheckPunchThru ; returns: c=0 if 

punchthru 

jp nc, PunchThruStart 
jr ExitError 



,rrO points to rawkeydata[0] 

;KEY_NUMBER is to offset into rawkeydata[table] 

.************************************^ 
KeylnMap: 

call CheckPowerFlag ; adjust 

KEY NUMBER if [POWER] key hit 

OffsetConfigured: 

;** rrO and KEY_NUMBER configured - move rrO to rawkeydata ** 
Id rl3, CODE_LEN_BYTES 

Id rl 1 , KEY_NUMBER ;holds the actual 

key number 

call mul_8 
addw r0,rl,#0,rl3 

cp RF TOGGLE, #0ffh 
jr ne, NoRF 
;RFOn 
NoRF: 

; tbitnz ER_MODE, #SCAN_MODE, NoDevLights ;in scan mode don't mess with 
the dev lights 

call DeviceLightsOn ;this line must 

precede the call to set driver 
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;NoDevLights: 

;driver to reconstruct the code in Ram 
and C0DE_LEN_BITS,#3fh 
call SetDriver 
jr c, DriverlsSelfContained 

call SendIR 

DriverlsSelfContained: 
;RFOff 

pop DEVICEFLAG 
rcf 

ret ; Exit point for IR 

transmission 

ExitError: 

; tbitnz IR_MODE, #SCAN_MODE, NoLightsScan ;in scan mode don't mess with 
the dev lights 

call DeviceLightsOn 

;NoLightsScan: 

pop DEVICE_FLAG ; in case we do 

punch thru we can get back to origonal mode 

call WaitForKeyReleaseFlashRed 

scf 

ret 



FILENAME: findkey.s 
CheckPipFlag 
Version: 

Date: 11/01/96, 13:59:26 
Author: 

Function: For picture in picture devices 

If pip key hit then menu cluster goes into pip mode. 

If menu key hit then menu cluster goes into menu mode. 

If in double action then xx_pip = pip 
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; Inputs: KEY_NUMBER 
; IRMODE (pip flag) 

; Retums:KEY_NUMBER = KEY_NUMBER+40 if flag and mode and key hit 
; IR MODE (pip flag - set or clears) 

.*********************** ******^ 

CheckPipFlag: 

PipExit:ret 



; FILENAME: fmdkey.s 

i ReconfigFlagByte 

; Version: 

Date: 10/31/96, 10:16:49 
; Author: 

; Function: For overlay codes when re-reading the master dat file reconfig the FLG 
S byte 

to correctly grap the correct key data. 



; Inputs: rrO points to flag byte in dat file 

FLGS = FLGS for the overlayed code 
; Returns: 

; Modifies: 

; Subords: 

ReconfigFlagByte: 

;** rrO points to flag byte ** 

ldc r2, @rrO ; FlagByte 

;** reconfig std flag ** 

tbitz r2,#STANDARD_KEY_FLAG, FlagNotSetO 

or FLGS, #STANDARD_KEY_FLAG ; set flag 



A-71 



Findkey 



jr Do Action 
FlagNotSetO: 

and FLGS, # A c STAND ARD_KEY_FLAG ; clear flag 

Do Action: 

;** reconfig action flag ** 

tbitz r2 ,# ACTIONFLAG, FlagNotSetl 

or FLGS, #ACTION_FLAG ; set flag 

jr DoDoubleAction 
FlagNotSetl: 

and FLGS, # A c ACTION FLAG ; clear flag 

DoDoubleAction: 

;** reconfig double action flag ** 

tbitz r2,#DOUBLE_ACTION_FLAG, FlagNotSet2 

or FLGS, #DOUBLE_ACTION_FLAG ; set flag 

jr Exit2 
FlagNotSet2: 

and FLGS, # A c DOUBLE_ACTION_FLAG ; clear flag 

Exit2: ret 



^sh********************************************************^ 
; FILENAME: findkey.s 

; CheckOverlay 

; Version: 

; Date: 10/02/96, 13:41:43 
; Author: 

; Function: 

; Inputs: CODE_LEN_BITS , BIT #40h if set then overlayed code 

; OVERLAY_ADDR, O VERLA YADDR+ 1 : address to overlayed dat fi le 

; Returns: 

; CF = 0 - Overlayed (also clears overlay flag) 

; CF = 1 - NotOverlayed or Overlayed Checked Once already or in 

Action_Mode 

.********************************* *************************** 

CheckOverlay: 
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tbitz CODE_LEN_BITS , #OVERLAY_FLG, NotOverlayed 

and CODE LEN BITS, # A c OVERLAY_FLG ; clear overlay flg. 

Id rO, OVERLAY_ADDR 

Id rl,OVERLAY_ADDR+l 

rcf 

ret 

NotOverlayed: 
scf 
ret 



; FILENAME: fmdkey.s 

;CheckPowerFlag 

; Version: 

; Date: 10/01/96, 14:36:39 
; Author: 

; Function: Determines if 1 is added to KEY_NUMBER. 
.; Will add 1 if POWER FLG set and: 

; if toggle=power off 

; or if in Action modes 

(key number > action_0) 

Inputs: KEY_NUMBER 
; rrO = POWER key data 

; KEY_NUMBER = offset into dat file ( 1 byte/key) 

; KEY_NUMBER_BUFFER = key hit 

; Returns: 

; rrO = points to POWER_ON or POWER_OFF key data (depending on 

toggle) 

; KEY_NUMBER = offset into dat file raw data 

•********************************^ 
CheckPowerFlag: 

tbitz CODE_LEN_BITS , #POWER_FLG, cpf_exit 

cp KEY_NUMBER_BUFFER, #X_KEY_0 

jr uge, AddOne 
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cp KEY_NTJMBER_BUFFER, #KEY_POWER 
jr nz, cpf_exit 

inc P O WER_SEND_FLG 
tbitnz POWER_SEND_FLG, #BIT0, cpf_exit 
AddOne: 

add KEYNUMBER, #1 ; send power_off 

if POWERSENDFLG = odd 
cpf_exit: 

ret 

; FILENAME: fmdkey.s 

; CheckStandardKeys 

, Version: 

Date: 10/01/96, 16:13:33 
Author: 

, Function: 



Inputs: rrO = byte after the flag byte: maybe keymap[0] or stand_num_group 
KEY_NUMBER = offset to raw key in dat file 

Returns: 

if standard group: 

rrO = pointer to Standard_Number_Group if digit hit 

CF = 0 - number key hit and STAND ARD_KEY_FL AG set 

else 

rrO = pointer to keymap[0] 
CF = 1 - not a number key 



.********************************************* 
CheckStandardKeys : 

tbitz FLGS,#STANDARD_KEY_FLAG, FlagNotSet 

cp KEY_NUMBER, #9 

jr ugt,NotANumberKey 

;number key hit and STAND ARD_K£Y_FLAG set 
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ldc r2,@rr0 ; standard key 

set# defined 

rcf 

rlc r2 

ldrr r8,r9,STANDARD_KEY_TABLE 
addw r8,r9,#0,r2 
ldc rO,@rr8 
incw it8 
ldc rl,@rr8 

rcf 
ret 

NotANumberKey: 

incw rrO ; point to 

KeyMap[0] 

FlagNotSet: 
scf 
ret 



; FILENAME: g:\500\540\fmdkey.s 

; DeviceLightsOn 

; Version: 

Date: 12/09/96, 11:22:03 
; Author: 

; Function: 



Inputs: 

Returns: 

CF - 0 - OK 
CF = 1 -Error 

Modifies: 
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; Subords: 

DeviceLightsOn: ;lights up the Active Device key 

call DeviceLightsOff 

push DEVICEFLAG ;Save it 

cp DEVICE_FLAG,#ObOh 

jr ult,Sat 

sub DEVICE_FLAG,#70h 
RedLedOn 

Sat: 

cp DEVICE FLAG, #DEV_SAT 

jr ne, NotSat 

SatLedOn 
;ret 

NotSat: 

cp DEVICE_FLAG, #DEV_VCR 
jr ne, NotVcr 

VcrLedOn 
;ret 

NotVcr: 

cp DEVICE_FLAG, #DEV_TV 
jr ne, NotTV 

TvLedOn 
;ret 

NotTV: 

cp DEVICE_FLAG, #DEV_RCVR 
jr ne, NotCbl 

CblAmpLedOn 
;ret 
NotCbl: 

cp DEVICE_FLAG,#DEV_CABLE 

jr ne,Ledret 

AuxLedOn 
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Ledret: 

pop DEVICE_FLAG 
ret 



STAND ARD_KEY_T ABLE: 

.extern SET_0,SET_1,SET_2,SET_3,SET_4,SET_5,SET_6,SET_7 
.extern SET_8,SET_9,SET_10,SET_11,SET_12,SET_13 5 SET_14 
.extern SET_15,SET_16,SET_17,SET_18,SET_19,SET_20,SET_21,SET_22 
.extern SET_23,SET_24,SET_25,SET_26,SET_27,SET_28,SET_29 
.extern SET_30 > SET_31,SET_32,SET_33,SET_34,SET_35,SET_36,SET_37 
.extern SET_38,SET_39,SET_40,SET_41,SET_42,SET_43,SET_44 
.extern SET_45,SET_46,SET_47,SET_48,SET_49,SET_50,SET_5 1 
.extern SET_52,SET_53,SET_54,SET_55,SET_56,SET_57,SET_58,SET_59 



.word SET_0 
.word SET_1 
.word SET_2 
.word SET_3 
.word SET_4 
.word SET_5 
.word SET_6 
.word SET_7 
.word SET_8 
.word SET_9 
.word SET_10 
.word SET_11 
.word SET_12 
.word SET13 
.word SET_14 
.word SET_15 
.word SET_16 
.word SET_17 
.word SET_18 
.word SET_19 
.word SET_20 
.word SET_21 
.word SET_22 
.word SET_23 
.word SET_24 
.word SET_25 
.word SET_26 
.word SET_27 
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Findkey 



.word SET_28 
.word SET_29 
.word SET_30 
.word SET_31 
.word SET_32 
.word SET_33 
.word SET_34 
.word SET_35 
.word SET_36 
.word SET_37 
.word SET_38 
.word SET_39 
.word SET_40 
.word SET_41 
.word SET_42 
.word SET_43 
.word SET_44 
.word SET_45 
.word SET_46 
.word SET_47 
.word SET_48 
.word SET_49 
.word SET_40 
.word SET_51 
.word SET_52 
.word SET_53 
.word SET_54 
.word SET_55 
.word SET_56 
.word SET_57 
.word SET_58 
.word SET_59 
.end 
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